RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


*eF I LE**iDe*PUS 
PPPPPPPP UU UU SSSSSSSS 
PPPPPPPP UU UU SSSSSSSS 
PP PP UU UU SS 
PP PP UU UU SS 
PP PP UU UU SS 
PP PP UU uu SS 
PPPPPPPP UU UU SSSSSS 
PPPPPPPP UU UU SSSSSS 
PP UU UU $$ 
PP UU UU SS 
PP UU UU SS sees 
PP UU UU SS eee 
PP UUUUUUUUUU - SSSSSSSS sees 
PP UUUUUUUUUU = SSSSSSSS eee 
LL III] SSSSSSSS 
LL HII] SSSSSSSS 
LL II SS 
LL I] SS 
LL I] SS 
LL I! SS 
LL I] SSSSSS 
LL Il SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] Ss 
LLELLLLLLLL III] SSSSSSSS 
LLLLLLLLLL IIIT] SSSSSSSS 


es rc 
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ZTITLE 'PUS == Process Uneaten, syring’ 


MODULE pus ( {pen A ny 
Br iss32 ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE 
, ONEXTERNAL = LONG-RELATIVESJ 
= 
BEGIN 


VRE A AAA AEA EAA EAE REEEAA AEE E TEAR AEAAAAAAEEEATAAAARAEES 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
tt DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt he 
!* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bs Cenee AND WITH THE 
't INCLUSION OF THE ABOVE Spd ad NOTICE. a SOFTWARE OR ANY OTH 


® 
® 
® 
® 
® 
® 
® 
® 
® 
i E . 
it OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE 1S- HEREBY . 
® 
® 
® 
ae 
a 
* 
& 
ad 
® 
* 


pe pejolololololeo) 


COOoOoQooooooo 
folojlejlelelelolejlolo) 


felelelelololo) 


'® TRANSFERRED. 


i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
‘* aeRPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


't DIGITAL ASSUMES NO RESPONSIBI 
tt SOFTWARE ON EQUIPMENT WHICH I 


'® 
Lee RRR ARR RAERE AEE AEE AAA AAA AAA TARA AAA AAAERARAAATATAAKE REAR 
' 


LITY FOR THE USE OR _ RELIABILITY OF ITS 
S$ NOT SUPPLIED BY DIGITAL. 


'4e4 


FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
!' ABSTRACT: 


i 

1 

: Decide if record is a command, or contains text, 
and dispatch accordingly. 
' 

' 

' 

' 


WANNA AAW AAP POPUNOPUNINPINIPDYD 2 OOOO em Oo 
OOONA VUE WN $9 OD NOAMU EWN | OOONAUE WIN S(O OONOUE Wi 


OGOOCOCoCooooooooooooooo 


i ENVIRONMENT: Transportable 
i AUTHOR: R.W. Friday CREATION DATE: April, 1978 


a a a ed dd td od th I I IOOOOO 
- 
op 


PWN OO OONAUE WN (OC OODNAUE WN O OONAUNE WIN (OO ONOUE WN 


BEES BANNAN ACTA POPPIN NINPININYD 2 POO ae ee 


Fe 
g 


PD DPA AINSI & 


—“OOONOULS WN OOD 
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045 ! pen. "Revision History’ 
bi? : MODIFIED BY: 
88 1 i 008 KF A00008 Alden 19-Sep-1983 
031 : Added support 4, end-et- Line escape Sequences. 
0 § 1 / 007 KFA00007 Alden 10-March-1983 
084 ! Fixed bug with sca "her. Conditionals needed cleaning up. 
055 1 006 REROO006 Randall 07-March-1983 

28 13 Global edit of at? eedules. U pdated module names, idents, 

57 13 copyr gnt dates. saengee requi re files to BLISS library. 
it : ee Change handler code oO kwitem_handler_code. 
0060 1 


cc 
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Module Level Declarations ° Sep-19 4 9}: $7549 249 ry 


XSBITL ‘Module Level Declarations’ 


TABLE OF CONTENTS: 
| INCLUDE FILES: 


Ze V4.0-742 Page ; 


S2 


bb 
LESSFELLS 


99 


CDOSSOSDOSCOOOOOOOOO0O 
SOoCSoO 
ao 
rs 


— [DOO CDOODOCOCOSDAAAAS 


MEUM 9 OONAUS WN — OOODNOU EWN OC OONOUE UN QOONOu 
a a a dd dd 


ee eee ne ew eww lel wlelolololololololololololo!) 
RIPPOPOPINOPYINIPONPINPONYNITYUPNPOPONPONONPNPNPoNy 


WAI INIA PP NINPUNIPINININY 2 OO oO 


EQUATED SYMBOLS: 
T 


LITERAL 
FINISH COMMAND = ARECCC_CO 
PROCESS_TEXT = ARECCC"CO 
' 


EXTERNAL REFERENCES: 


EXTERNAL LITERAL 
RINTES : UNSIGNED (8); 


EXTERNAL 
GCA : GCA_DEFINITION, 
IRA_: FIXED_STRING, 
KHAR, 
CA : SCA_DEFINITION, 
TSF : TSF_DEFINITION; 
— LITERAL 
ns, ‘Wwe. 
enfile: i Ww = Illegal command: 
EXTERNAL ROUTINE 
AREC, DOCM tg ENDWRD, ERMA 
RML, GCSKIP, GUSKIP. LIT, SUTCRC 
OUTJ, OUTNJ, se RCS. 


i 

' 

LIBRARY "NXPORT: XPORT®* ; ' XPORT Librar 

REQUIRE ‘REQ:RNODEF'; ! RUNOFF vortont definitions 
ZIF BSAPLUS XTHEN 

se REQ:DPLLIB'; ! DSRPLUS BLISS Library 
bigrA RY ‘REQ:DSRLIB'; ! DSR BLISS Library 

' 

i 


NO SPACE aeoges in this context 
Lt = 


-- Process Uneaten String 
-- process uneaten string 


Zsbttl "PUS <= 
GLOBAL ROUTINE 


PUS 
voz-000 
US (end_word) 


lo 


FUNCTIONAL DESCRIPTION: 


FORMAL PARAMETERS: 
END _WORD 


would have. 


IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 
ROUTINE VALUE: 

COMPLETION CODES: None 
SIDE EFFECTS: Man 


BEGIN 


LOCAL 
action, 
new_record, 
save_count, 
save_khar, 
save_next; 


PAAEAPAAAAAASEMNMIMNVINNM ES BE EE EP EEE OY 


M—OOWNOUE WN ODDNOUL WN OOD NOUE WN ODONAUE WIN ODE NOU WI OOO 


save_count = .fs_length (ira); 
save_khar = .khar; R 
save_next = .fs_next (ira); 


action = arec (); : 
new_record = true; : 


WHILE 1 DO : 
BEGIN : 


DONO UNE WN | O OONO VS WIN 3 O ODNOAU EWN (OO ODONOUES WN HOW ONOUE WN 0D 


‘that cannot possibly 


wh 


IF .gca_skippin 
THEN — 


me ee me ee ed ed ad ad ed ts = 4 td 
NR Re St te tee a a BEES SEWN onpononononoponnng 2 2 2 SO 
wn 


BPE SES & FWWIWNIGMPININININININININININININININININD 2 9 9 Se 


Bee Oe Se Se Se Fe Se Se Be Ge Se SH Se FH Se FH Se Se Ge FH Ge Se Se oe FH Ss Ge Ge Ge Se Ge ae Se FH Ss SH Ges Se See Se Be Se SESE SF Se HSH SHES Se Seas 


COOODWWOWOWOWOWOOOON NINN NNN SY 


Ooooooo 
Rorononorono 


Decide if record is a command, 


TRUE if PUS is to terminate words when found. 
peresecer is true ° 
ALSE to prevent PUS from calling ENDWRD where it normally 


BEGIN 
'If in the FALSE branch of 


m9 
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127388-1 $8e 93:67:05 DISKSVMSMASTER: CRUNOFF..SRCJPUS.BLI;1 . 


rocess uneaten string’ 
: NOVALUE = 


or contains text, and dispatch accordingly. 


i.e. if this 


ENDWRD will be called 


_and varied! Be sure you understand the : 
implications before making any changes to this routine. 


'PUS needs to know if new record or continuing on. 


! Needed if this turns out to be a 
! Literal line. 


Find 
This is a brand new record. 


out what to do with this uneaten string. 


This loop allows the analysis results 
to be altered. 


IF .action NEQ finish_command 
THEN 


an .IF command 


ignore everythin 
be a ‘normal RUNOFF 2 4 ° 


command. 


IF .action NEQ cf_letter 


s2 


a2 
8 


N 9 
=- Process Uneaten Strin 16-Sep-1984 01:29:14 
“= process uneaten string 1228681382 94383549 


sss iS sete ——— 


VAX-11 Bliss-32 V4.0-742 Pp 

DISKSVMSMASTERSCRUNOFF SRCIPUS.BLI:1 9%” cas 

THEN 
RETURN; 


D NOT ((.action EQL end_of_string) 


AND NOT .new_record ) 
THEN 


literal_block : 


OWONAOULSWN $0 OONOULSWN OOD 


Sooo oCoOooowoOono 


ARaNW— 


SS 
APOAAOAOAS SVNWWDODOOO00 OOOO DO O09 000 09 SY IP PPP PAA ADA TT UI 


WWMM WIWIWIIPI INI NINININININID 2 2 OS SS DOOD OCOOOOCOOOOOOWOO uM 


WANN NANA AANA NANA AANA WNW NWN NANI AAAIInonofornofnonn =—C 
DONO NEW @§ 0 OD NONE WIN 3 O OD NOA UE WWI $9 OD NOUS WIN)  O OONAY EWN OODONOULS WW 


PIPIPIPIPIPIPINIMININININIPINIDNIN III a a ts nk nk kt kk ik kk kk kk a hh th ht 
SOOOSOSOSOOOCOSOSOOCOSOSOCOOCOOCOOOOSOSSOSOOSCOOOCOCOCOCOOCOOCOCOOOOOOOOOOOOOOOO (U6UVV 


Be Se Se Be Be Se Se Be Ge Se Ge Fe Ge Se Se Se Ge Be Se FH Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge SS Ge Se Se Se Sse Se Se Se Se Se Se Se Se Se Se Geese Se Sess Se Se Sse teas 


ROROTY tt 1 OOO 
NS OMNANE WS OSS Ue 


WANA AWWW 
SPELL EE ESE 


Nonononrs 


IF ans? Literal 


BEGIN ! Special processi f it 
way ) processing for literals 
rcs_result; 


LABEL 
Literal_block; 


EGIN | 
'The following test is satisfied when a counted literal has run 
' run out, or it's not a counted literal. In the case where a 
' counted Literal is 1 agree to run out, but the Line does not 
' contain a .END LITERAL command, the appropriate error action 
! is taken by LIT. 
M -gci_lit_count EQL 0 
BEGIN 


IF action EQL cf_letter 
THEN 


IF .rcs_result NEQ 0 
THE 
BEGIN 
MAP 
rcs_result : REF VECTOR; 
$F tt them pendlor_sote (rcs_result) EQL h_end_Literal 
'Terminate the Literal. 
docm (h_end_literal, 0); 
action = finish command; 
LEAVE Literal_bTock; 
END; 
END; 
END; 
END; 
'Just another Literal Line 
fs_length (ira) = .save_count; ! Restore possibly modified 
fs_next (ira) = .save_next; ' count, pointer, 
khar = .save_khar; ! and stacked character. 


lit (0); ' Let LIT count this Line. 


BEGIN 

rcs_result = rcs (); 
| 
| 
| 
| 
| 
| 
| 
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IF_ action NEQ end_of_string 
THEN 
action = process_text; 
END; ! eet end of LITERAL_BLOCK *eee« 


END; 
END; 


senna FROM 1 TO process_text OF 


Mrorrn 
NOUS W 


OOOCCOCOCOCOCCOO vv 


; 6 

: 4 

8 7 

; , 4 

: : 0 

; ¢ 0 1 

: 236 § Cend_of string] : 

: 337 03 4 4 BEGIN. 

; 239 08 : 4 IF_ .sca_fill AND .gca_autopara AND .new_record 

: 240 03 4 TH 

> 241 0368 4 parag (-1) 

; see 0369 4 ELSE 

; 24 0370 5 

: ste 0371 5 IF .sca_fill 

: 245 03 § 5 THEN ! FILL mode 

: 246 03 6 BEGIN 

: see 0374 7 IF ((NOT .sca_fc) AND .end_word) 

; 248 0375 6 THEN 

3 4 0376 6 endwrd (.sca_fill, .sca_justify, false); 

; 250 0377 6 D 

ae +) 0378 6 

3 $26 0379 5 ELSE ! Nofill mode 

; 0380 5 IF .sca_ker ! If ‘Keepin Empty Records", 
: See 0381 5 THEN ! force a blank Line 

3 209 bang 6 BEGIN 

ae +. 0385 6 : 

: gor 0384 6 IF .tsf_int hl GTR O !Force out the current Line 
; gos 0385 6 

> 259 0386 6 outnj 0); ! =6first if it is not empty. 
; soe 0387 6 

; 261 0388 6 guskip (1); ! Generate ‘blank-line' code. 
; $66 0389 6 outcrg (); ! Force out blank Line NOW. 
$ 2 0390 5 ; 

; 264 0391 4 END; 

3; 265 B36 4 RETURN; 

: 839 END; 

: 26 94 

; 268 0395 CCF_CFJ : ! Two <CONTROL flag>s 

3 +4 0 2 action = not_space; 

: e71 98 CCF_COMMENT) : 

3 Le 99 4 BEGIN ' A comment starting ‘.!" or ‘.;'. 

: ef 400 4 kens (); ! Position into comment 

: 274 401 4 endcmt ();. 

: 275 4 : 4 action = finish_command; 

3 st : 

: 278 405 CCF_BREAK, CF_LETTER] : 

; 279 406 4 BEGIN ! Command recognition and processing 
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S2 


; 280 407 4 LOCAL : 
; 281 rh 4 rcs_result; : 
; 8 409 4 : 
3 7 Bry : rces_result = rcs (); ! Try to recognize command. ; 
; 285 Oct 4 IF .rcs_result EQL 0 : 
; 286 415 4 THE ! If the command was not recognized, ‘ 
; 288 Bele ? noel = cf_other ! change the action indicator : 
: 289 0416 BEGIN 
; 290 041 MAP : 
3 4! ac rces_result : REF VECTOR; : 
: 29 420 ! Process command : 
H Be be 1 docm (.kwitem_handler_code (rcs_result), .kwitem_actions (rcs_result)); : 
: 4 ee ; pes ten = finish_command; ! Finish processing command. ‘ 
: 298 0425 4 : ; 
; ev 0426 END; : 
; 300 0427 : 
; 301 0428 CCF_OTHER) : : 
3; oh 4 4 BEGIN : 
; 0430 4 ‘Something that can't be recognized. - : 
; 304 ott 4 erma (rnfilc, true); ! Skip to end of ‘command’ and issue an error message. : 
; b2 pres 4 action = finish_command; | Standard end-of-command processing. ; 
; 307 bse 3 : : 
; 308 0435 3 CEND_FOOTNOTE) : : 
; 309 0436 4 : 
; 310 oR 4 '<ENDFOOTNOTE flag> ‘ : 
, 3 0438 4 kens (); 'Skip the <ENDFOOTNOTE flag> : 
; Si2 0439 4 docm (h_end_footnote, 0); ‘Terminate a footnote. ; 
; Fs ere 4 action = finish_command; 'Finish processing coommand. : 
; $15 O44g ; , : 
: 16 044 CFIRST_SPACE] : 

3 317 0444 4 BEGIN 

5. 28 0445 4 

; 4319 0446 4 IF .sca_fill AND .gca_autopara 

; $9 447 4 THEN : 

: $! Ree : parag (-1); ‘Found an auto'd paragraph. 

: 3 0431 4 ag = process_text; 'Do normal text processing. 

; 325 45 : 

: 326 b083 CFIRST_SEMI] : 'A ';" following a command. 

3 $f beee action = process_text; 'Do normal text processing. 

; 23 436 [NOT SPACE) : 

; 0 457 4 BEGIN 

; 1 $28 4 

3 § $23 ? 1f -sca_fill AND .gca_autotabl 

; r ret 2 parag (-1); ‘Found an auto'd paragraph. 

: 3 18 4 action = process_text; 'Do normal text processing. 
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H 7 464 END; 

; 3 465 ; 

H 9 46 CPROCESS TEXT] : 

; 340 467 4 BEGIN 

£30) oes 3 IF NOT ( t AND t) | 

H -gca_conca -$ca_con 

; 28 $090 4 THEN Jie i 

3; 344 Reo) 4 ‘Normal case, when end of Line means end 

3 345 1o6 4 lof word. The check on SCA WRD_CPEND avoids 

: 346 0475 4 ‘extra spaces if the input Tine ended with 

; rf peee ? ‘a space or tab. 

; 349 0476 4 ! If there was a word pending. end it. 

: 390 0477 4 ! In DSRPLUS the pass-through facility will 

, Bel 0478 4 ! push through a sequence and not count it against 

3 26 0479 4 ! the margins. However when this type of sequence is 

3 3D 0480 4 ! dropped at the end of a Line, then sca_wrd cpend will 

: 354 0481 4 ' equal rintes. ENDWRD still needs to be called however. 

s 395 ot 14 4 ! For this reason, if a pass-through was part of the Last 

; $29 ott : i word, then we'l( call endwrd if sca_wrd_cpend eql rintes. 

; 324 0485 4 IF .end_word AND 

3 $28 0486 6 ((.sca_wrd_cpend NEQ rintes) 

; 360 U 0487 6 XIF DSRPLUS X%THEN 

; 361 U 0488 6 OR 

; 306 U 0489 6 ((.sca_wrd_cpend EQL rintes) AND (.sca_wrd_pass))) 

; 2 0490 5 XELSE) 

; 364 0491 5 XFI 

5; 6389 0492 4 

: 366 0495 4 endwrd (.sca_fill, .sca_justify, false); 

; 67 0494 4 

: 368 0495 5 IF .gca_concat AND (NOT .sca_cont) 

: 36 0496 4 TH 'NO SPACE canceled by some other command 

3 $59 oh 4 : erml (RNFDNS); 'Issue error message. 

3 Sle 0499 4 gca_concat = false; !Concatination no longer pending. 

; ez Bene ? scant (); 'Go scan text. 

; 378 Fa) 4 'In .NO FILL mode, the end of an input Line 

3 a b202 : ‘corresponds to the end of an output Line. 

:; 378 0505 4 IF NOT .sca_fill 

; 379 0506 4 THEN 

; 0 b20f 4 

; 1 508 4 IF .sca_justify 

; 38 0509 4 ! No fill,justify 

; 38 0510 4 outj ©) 

: 384 0511 4 ELSE ' No fill, no justify | 

; 385 21¢ 4 outnj (); 

; 38 514 4 RETURN; | 

3; 388 515 END; 

3; «4389 218 

: 390 ba! CFINISH COMMAND) : 

: 391 518 4 BEGIN 

> 0519 4 new_record = false; ' Continue same record. 

: 39 0520 4 action = arec (); ! Find out what to do. | 
| 


rs 


eo 
2 
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=2 


IF .action EQL end_of_string 
THEN 


RETURN; 
IF_ .action EQL first_semi 
THEN 
BEGIN 
kens (); ' Skip the ';', 
action = arec (); i find out what to do with remainder, 
! ® handle it Like a brand new record. 


new record = true; 
END; 


! If the command pat processed was a .LITERAL command, don't let the 
! old pointers, etc. get set back at the top of the Loop. 


IF .gca_literal 


THEN 
BEGIN 
save_count = .fs_length (ira); 
save_khar har; 


= .khar; 
save_next = .fs_next (ira); 
ND; 


END; 
TES; 
END; 
END; 'End of PUS 


pe new ola lola lolelolololololelolelololol ol elo lolol ol ol ola) 
PUP PULU SUSU SUSUSUSV SUSU SSIS ISIS SISOS 
GV ES BS BB BB EE EA NIIIInornorororononornor) 
=O ODNAVE WN | 0 ODNOUES WN OOONOUS Wh 
OPI AAAS BNIB BP PEP PUNE SLL LLL 


TLE PUS PUS == Process Uneaten String 
ENT \vV04-000\ 
TRN 
T 


RINTES, GCA, IRA 
RN KHAR, SCA ist RNF DNS 


: 0 ou 
TEXTRN OUTNJ, PARAG, RCS 
SCANT 


-PSECT SCODES,NOWRT,2 
0 ENTRY PUS Save R2,R3,R4,R5,R6,R7,R8,R9,RI0,R11 = 0257 


MOV KHAR 
. R 
SAVE_COUNT 2 
7 
7% 
76 


R, SAVE_KRAAR 
TRA+4 


MO SAVE _NEXT 
CALLS #0, AREC 
MO RO, ACTION 


IRA+1 
MOVL IRA+1 
MOVL KHA 


oo°oo 


000000006 


. 
. 
. 
. 
7 
. 
. 
. 
. 
* 
. 
. 
. 
os 
. 
. 
. 
. 
. 
. 
. 
o 
. 
. 
. 
. 
° 
- 
. 
. 
o 
. 
a 
. 
a 
. 
- 
. 
o 
7 
o 
. 
. 
. 
e 
~ 
. 
. 
. 
. 
o 
. 
* 
. 
. 
7 
. 
7 
o 
. 
o 
. 
* 
. 
. 
. 
. 
. 
a 
. 
- 
. 
o 
. 
o 
o 
s 
. 
e 
+ 
o 
o 
o 
. 
° 
o 
o 
© 
eo 
o 
. 
. 
e 
. 
. 
om 
© 
oe 
o 
a 
- 
2 
. 
eo 
- 
a 
© 
a 
. 
oa 
. 
e 


VoOroOQmmmr 
onmoorooooon" 
OwWOooommmma 
SOoQoooooooo 
Coooooooooo 
Pete Se Se Se Ge Se Ge Se 


oooQgom™ 


PUS == Process Uneaten String 
PUS == process uneaten string 


bs 
05 


00000000G_ EF 


000000006 


F8 


000000006 


000000006 


— mm onuw 
SLs TRSRRG 
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oOo 
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04 


00 
D4 


2c 
04 
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ooo "oO 90090 -9 AN 9 9 9 OM oO MOO M907 
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Pun OOM MWD 


Poa 

oO DW ——FPrPwvo 
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#1, NEW_R FORD 
ACTION, “# 


oCA+156, gs 
ACTION, 4 

2 

GCA+80, 5$ 

A TION, #1 
NEW_RECORD, 5$ 
wth 

ACTION, #5 
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#0, RCS 

RCS§_RESULT 
4(RCS_RESULT), #60 
#60, -(SP) 

#2, DOCM 

ail, ACTION 
SAVE_COUNT, IRast2 


SAVE_NEXT, IRA+4 
SAVE_-KHAR, KHAR 
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acta+4, 8$ 
NEW_RECORD, 8$ 
#1, 7-(SP) 
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R3, 11$ 
SCA+148, 9S 
END_WORD, 10$ 
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S PUS == Process Uneaten Strin bese -1984 VAX-11 Bliss-32 V4.0-742 Page 
v02-000 PUS == process uneaten string 14-Sep- 3B 93: $7549 DISKSVMSMASTER: CRUNOFF ..SRCJPUS.BLI;1 
7E D4 00007 108: CLRL 30s = (SP. ; 

CR BB iii, put acento : 

000000006 ‘EF 0 FB DE CALLS #3, ENDWRD : 
01 1c =—B9 8 E6 11$: BLBS aSCA+132, 12$ : 

000000006 ‘FF FI EB 12$: TSTL artsF : 

7 Fi BLE 138 : 

000000006 EF 0 FB OFS CALLS #0, OUTNJ : 
00000006 EF 1 Po aioe | OEMS OH, eusare : 
00000006 EF 0 FB 108 CALLS #0, OUTCRG : 
04 0010A RET : 

52 OA 00 00108 148: MOVL #10, ACTION : 

69 11 0010 BRB : 

8 D5 00110 15$: TSTL IRA+12 : 

9 14 0011 BGTR 16$ : 

68 006 8F 9A 00114 MOVZBL M#RINTES, KHAR : 

68 01 CE 00118 MNEGL #1, IRA+12 : 

09 11 0011B BRB ; 

6B F8 BB 9A 00110 16$:  MOVZBL @IRA+4, KHAR : 

FBO 6 0121 INCL IRA A+ : 

68 D7 00124 DECL RA+12 : 

000000006 EF 00 FB 01 6 17$: CALLS to ENDCMT ; 
47 11 0012D BRB 238 : 

000000006 EF 99 FB OO12F 18$ CALLS ; 
0 D5 00136 TSTL Reg RESULT : 

05 12 00138 BNEQ 19$ : 

52 09 DO 0013A MOVL #9, ACTION : 

5B 11 0013p BRB : 

7E 04 AO 7D 0013F 198:  MOVQ  4(RCS_RESULT), -(SP) : 

A 11 00143 BRB 24$ : 

1 DD 00145 208 PUSHL #1 ; 

000000006 8F DD 00147 PUSHL #RNFILC : 

000000006 EF 02 FB 0014D CALLS #2, ERM ; 
20 11 00154 BRB F 

68 05 00156 21$ TSTL RA+12 F 

09 14 00198 BGTR F 

68 006 8F 9A 0015A MOVZBL #RINTES, KHAR : 

6K 01 cE 0015€ MNEGL #1, IRA+12 ; 

09 1 90161 BRB F 

6B F8 B8 9A 00163 22$: | MOVZBL @IRA+4, KHAR : 

F8 as Dg 197 INCL IRA+4 : 

: 16A DECL IRA+12 ; 

7E 9 7D 0016C 238:  MOVd  ~¥#57, note : 

000000006 EF 2 FB 16 4$: CALLS He. D ; 
2 B dO 001 $ 5$: OVL {, ACTION : 

1F 11 00179 26$: BRB ; 

18 00 89 €9 0017B 27$:  BLBC asCA+104 30$ ; 

14 D4 BA F9 17F BLBC GCA+4 , 508 ; 

; 1 001 3 BRB : 

E 00 B89 €9 00185 28%: BLBC seins] 339° ; 

A DC BA €E9 00189 BLBC ; 

20000000 ff 1 RRR 2 ES HT pana : 
+ C AB 197 30$: MOVL i ACTION : 
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PUS PUS -- Process Uneaten Strin 16-Sep-1984 01:29:14 VAX-11 Bliss-32 V4.0-742 Page 12) 
voe~000 PUS == process uneaten string 12286071382 93:63 49 DISKSVMSMASTER: CRUNOFF.SRCJPUS.BLI;1 . (4) vl 
FE9B 31 0019A 31$:  BRW 1$ : 0360 : 
4 6A E 196 $38: BLBC  GCA+48, 33$ : 9788 F 
E C Ad EB 001A0 BLBS  SCA+164, 34$ : F 
1A 4 AC €9 OO1A4 33$:  BLBC END ORD, 34$ + 0485 : 
000000006 8F 0080 t D4 1A CHPL scare 0, #RINTES : 04 ; 
d4 0018 CLRL =_ = ( SP) + 0493 : 
FC B9 DD 001B PUSHL asca+100 : ; 
00 BY DD 00188 PUSHL astae| 4 : ; 
000000006 EF FB 1B CALLS # EN : ; 
11 6A £9 001C2 348 BLBC  GCA+48, 35$ + 0495 ; 
0D 3 AJ €8 OOIC BLBS  S$CA+164, 35$ : ; 
000000006 gf DD O01C PUSHL §#RNFDN + 0497 ; 
000000006 _ EF 1 FB Oi cE CALLS #1 ERML F : 
A D4 106 35$:  CLRL  GCA+ + 0499 ; 
000000006 EF 0 Fe 010 CALLS #0, SCANT ; 0500 ; 
E 00 B89 E8 O01DF BLBS § aSCA+104, 42$ : 0505 ; 
0 FC B9 E9 OO1ES BLBC aSCA+100, 36$ : 0508 ; 
000000006 EF 00 FB OOtE? CALLS #0, OUTJ : 0510 ; 
000000006 EF 00 FB OOF 36$: CALLS #0, OUTNJ : 0512 ; 
54 D4 OO1F7 378: CLRL NEW RECORD : 0519 : 
000000006 EF 00 FB 001F9 CALLS #0, ~AREC : 0520 : 
2 50 pO 00 00 MOVL RO, ACTION : ; 
01 52 D1 0020 CMPL = ACTION, #1 > 0522 F 
39 13 00206 BEQL = 4 ; F 
08 3 D1 00208 CMPL ACTION, #8 + 0526 : 
2 N2 00208 BNEQ 40$ ; : 
68 05 00200 TSTL IRA+12 : 0529 : 
09 14 0020F BGTR $ ; F 
6B 006 8F 9A 00211 MOVZBL M#RINTES, KHAR : ; 
68 1 cE 09 13 MNEGL #1, IRA+12 ; ; 
68 F8 BB OA $0 1A 38%:  MOVZBL @IRA+4, KHAR : ; 
FB AB D6 OOZTE INCL IRA+4 : : 
68 D7 00221 DECL IRA+12 F ; 
000000006 EF 99 FB 00223 398 CALLS #0, AREC : 0530 : 
2 50 D 00 A MOVL 0; ACTIO ; ; 
54 01 D0 00220 MOVL #1, NEW_RECORD : 0531 ; 
A 20 AA €9 09 0 40$ BLBC GCA+80,~41 : 03 7 : 
7 68 DO 00234 MOVL IRA+12, SAVE_COUNT : 0540 : 
56 6B DO 00237 MOVL §KHAR, SAVE_KAAR > 0541 ; 
55 F8 AB p60 0 A MOVL Rash, SAVE_NEXT : 0542 ; 
FDF4 E 41$:  BRW $ ; 9280 ; 
04 00241 42$: = RET : 0551 ; 
; Routine Size: 578 bytes, Routine Base: S$CODE$ + 0000 : 
'End of module : 


$ PUS == Process Uneaten Strin 1b-50 -Sep-1984 VAX=-11 Bliss-32 V4.0-742 Page 13 
v02-000 PUS == process uneaten string ett 94: 87:49 749 DISKSVMSMASTER: CRUNOFF..SRCJPUS.BLI;1 ws (4) 
; PSECT SUMMARY 
; Name Bytes Attributes ‘ 
; SCODES 578 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
3 Library Statistics 
Soares See Symbols -------- Pages Processing : 
; File Total Loaded Percent Mapped Time ‘ 
; _$255$DUA28:(SYSLIBIXPORT.L32;1 590 : 0 252 00:00. ; 
; 7$255$DUA28: CRUNOFF .SRCIDS RL18.13251 1248 4 86 00:00. : 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:PUS/OBJ=OBJ$:PUS MSRC$:PUS/UPDATE=(ENH$:PUS) 

Size: 578 code + 0 data bytes 

Run Time: 00:12. 

Elapsed Ay A 00:25. 
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